Shareware Grab Bag/Shareware Grab Bag.iso/007/boostrs.arc/MOVEBLK.PAS

Pascal/Delphi Source File | 1980-01-01 | 3.5 KB | 125 lines

{ ------------------------------------------------
  MOVEBLK moves one part of the screen to another
  ------------------------------------------------ }
  Procedure MOVEBLK ( X1,Y1,X2,Y2,X3,Y3 : Integer);

{           Moves block defined by upper left and lower right
            coordinates (X1,Y1),(X2,Y2) to a block beginning
            at upper left coordinates (X3,Y3).  The orginal block
            is erased. }

begin
   InLine ( $1E/
            $8B/$46/$0C/
            $8B/$4E/$08/
            $29/$C1/
            $41/
            $8B/$46/$0E/
            $8B/$56/$0A/
            $29/$C2/
            $42/
            $D1/$E2/
            $8B/$D9/
            $29/$D4/
            $E2/$FC/
            $8C/$D0/
            $8E/$C0/
            $8B/$FC/
            $52/
            $53/
            $BB/$49/$04/         { mov   bx,449h        video byte offset   }
            $31/$C0/             { xor   ax,ax          ax = 0              }
            $8E/$D8/             { mov   ds,ax          video byte seg      }
            $8A/$07/             { mov   al,[bx]        get byte            }
            $3C/$07/             { cmp   al,7           mono?               }
            $75/$06/             { jne   graphx         no                  }
            $BA/$00/$B0/         { mov   dx,0B000h      regen for mono      }
            $EB/$0C/$90/         { jmp   contin                             }
            $BA/$DA/$03/        { mov  dx,3DAh  IBM CGA   }
            $EC/                { in   al,dx    will snow }
            $24/$08/            { and  al,1000b w/o this  }
            $74/$FB/            { jz   vtrace   check     }
                         { graphx:                                          }
            $BA/$00/$B8/         { mov   dx,0B800h      regen for graphics  }
                         { contin: mov   ds,dx                              }
            $8E/$DA/
            $8B/$76/$0C/
            $4E/
            $8B/$D6/
            $B1/$07/
            $D3/$E2/
            $B1/$05/
            $D3/$E6/
            $01/$D6/
            $8B/$46/$0E/
            $48/
            $D1/$E0/
            $01/$C6/
            $5A/
            $59/
            $D1/$E9/
            $1E/
            $56/
            $52/
            $51/
            $B8/$A0/$00/
            $29/$C8/
            $29/$C8/
            $FC/
            $51/
            $F3/$A5/
            $59/
            $4A/
            $74/$04/
            $01/$C6/
            $EB/$F5/
            $59/
            $5A/
            $5F/
            $07/
            $52/
            $51/
            $BB/$A0/$00/
            $29/$CB/
            $29/$CB/
            $B8/$20/$0E/
            $FC/
            $51/
            $F3/$AB/
            $59/
            $4A/
            $74/$04/
            $01/$DF/
            $EB/$F5/
            $8B/$7E/$04/
            $4F/
            $8B/$D7/
            $B1/$07/
            $D3/$E2/
            $B1/$05/
            $D3/$E7/
            $01/$D7/
            $8B/$46/$06/
            $48/
            $D1/$E0/
            $01/$C7/
            $59/
            $5A/
            $8B/$F4/
            $8C/$D0/
            $8E/$D8/
            $B8/$A0/$00/
            $29/$C8/
            $29/$C8/
            $FC/
            $51/
            $F3/$A5/
            $59/
            $4A/
            $74/$04/
            $01/$C7/
            $EB/$F5/
            $8B/$E5/
            $83/$EC/$04/
            $1F/$5D);
end;